Editorial — 



ANO NUEVO, 
VIDA NUEVA 



Como habréis podido observar 
aquellos que seguís nuestra revista, 
se han producido en los últimos 
meses muchos cambios en la 

Todos estos cambios tienen una 
única razón de ser: mejorar 
nuestro producto y hacer que se 
adapte más a los gustos y 
necesidades de nuestros lectores. 

Hemos querido dar un mayor 
énfasis al software, incluyendo 
mapas y cargadores y la sección de 
VIDEO-POKES. También hemos 

como el «Basicpaso a paso» (ya 
con un largo rodaje). 

Todo ello sin descuidar los 
listados ni los artículos de fondo ya 
que, ante todo, nos debemos a 
aquellos lectores que siguen 



Pese a que en las innumerables 
cartas recibidas nos dais a entender 
que estos cambios han sido bien 
aceptados, queremos hacer un 
sonden más amplio de la sensación 
causada por estos cambios. Por ello 

pequeña encuesta. Os pedimos que 
la rellenéis y nos la enviéis para, de 
este modo, poder hacer 
nuestras/vuestras revistas cada vez 
más al gusto de todos. 

Sólo nos queda desearos a todos 
un próspero 1988. Un 1988 lleno 
de MSX. 

MANHATTAN TRANSFER, S. A. 
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El basic paso a paso 
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Organización de 
programas 



primero que se trata en todos los 
cursos de BASIC. ¿Cómo se hace 
? Nosotros hemos 



ahora, momento en que ya cono- 
céis lo que se puede y lo que ni 
se puede hacer con el BASIC. 



programaren BASIC un projrama 



grama». Hacer buenos programas no 
tan fácil como muchos piensan. Un 
n programa no es sólo un programa 



Un buen programa es aquel que se halla 

^¿¿^05"^' ? la^ez L^ubividen 
en módulos cada vez más sencillos. De esta 
forma se descompone el programa en uni- 
dades cada vez más fáciles de programar. 

Gracias a la estructuración los programas 
ganan en claridad y son fácilmente modi- 
ficables. Los módulos de alto nivel, si están 
claramente indicados con sentencias REM, 
pueden entenderse aunque no se sepa pro- 

Se han generado incluso lenguajes algo- 
rítmicos para expresar los módulos. Los 
lenguajes algorítmicos son una forma de 



* Programadores de lenguajes de bajo 
miL'l lis arriesgado generalizar en este 
nivel, ya que existen muchas clases de 
programadores en lenguajes de bajo nivel. 



a. Los prograri 



¡arrollados b; 



por los programadores de videojuegos. 
Por ejemplo, es muy típico encon 
XOR A en los 



•r Sólos, 



COR A en los progra- 
Lo que en realidad se 
quiere hacer es LD A.O (A=0); pero se 
hace XOR A (A=A XOR A) porque es 
más rápido de ejecutar. 
Esto dificulta la legibilidad del programa, 



de los programas en ensamblador (claro 
ejemplo de lenguaje de bajo nivel). 

* Inteligencia Artificial'. En el otro ex- 
tremo, los programadores de inteligencia 
artificial optan por una solución mucho 
más radical: la no utilización de lenguajes 




yoría de las aplicaciones lo más importan 
debe ser la claridad del programa. De es 
modo otros usuarios pueden entender f 



limitados a nuestro uso particular, sino que 
si hacemos programas es para que 

DIVIDE Y VENCERAS 

Lo primero que debemos hacer al 
prender la tarea de realizar un prog 

bloques. Veamos por ejem- 
cos del que hemos da/ ' 



es dividirlo en 



ra de qué es lo que debe hacer. Cuando 
sabemos lo que queremos programar, de 
hemos realizar el algoritmo sobre el papel. 
Sólo de este modo sabremos los módulos 



Una vez hecho el algoritmo debemos 
plantearnos cada uno de los módulos que 



diseñar la panralla c 
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Preguntar 
e (b) y alrura (H) 



Calcular 
A=BXH/2 



X 



Escribir resultado 



| Escribir I ] 
I-I+l | 



a cabeza. Además, de esta forma, pi 
jlaborar varias personas en la realiz 
:1 programa: cada una realiza un mi 



gráficamente r 

algoritmo es complicado, es 

Además, cada módulo debe ser t 
>mo un programa independiente 
tanto, puede ser dividido en i 



gráfico que representa el orden en que 
deben ser ejecutados los módulos de que 
consta el programa I s mu lurnu uiatka 
de visualizar el algoritmo y de obtener de 

Existe un método racional y ordenando 
de realizar diagramas de flujo; pero no es 
utilizado prácticamente por ningún pro- 
gramador Cada grupo de operaciones tie- 
ne un gráfico 



no nos interesa aprender a hacer diagra- 
mas de flujo, sino aprender a tener una 
visión global de los programas. 

¡ dos símbolos se repre- 




Programa lineal: El programa 
xir ejemplo un algoritmo para c 

\=B*H/2 en la figura 2. 

Bucle con IF: En la figura 3 ob- 
le 1 hasta 100. 

Bucle FOR-: En lo 



ara la definí 
ón de bucles FOR. NET, por lo que estos 
i deben descomponer en una cabecera 
= l..un incremento (1=1+0, y una con- 
ición (K100). De este modo su represen- 



POR HOY YA BASTA 



Os recomendamos que p 



Algoritmo COMECOCOS 



Mover— íeomecocos 



SI XYTantasmas=XYComecocos 
ENTONCES comprobar— choques 
Sino— muerto ENTONCES salta— a- 



ias=XYComecocos 



Programa ■ 



■ Por Jesús Angel Antón ■ 



España 



país que nos proporciona este 
interesante MINI-Programa. 
¡Es todo vuestro! 




Por Jesús A. Antón 
Para MSX-CLUB 



10 CLS 

20 COLOR 15,6,4 
30 SCREEN2, 3 

3R Q=1T0192STEP 4 
50 LINE(0,Q)-(255,Q) , 11 

3 NEXTQ 
70 FOR Z=l TO 49 

80 READ WrREAD E: READ R: READ T 
90 LINE(W,E)-(R,T) , 11 
100 NEXTZ 

-INE <0,0)-<256, 192) , 1,B 
120 LINE (170, 120) -(230, 170) , 1 , BF 
-INE (177, 122) -(223, 168) ,6, BF 
-INE (177, 133. 5)-(223, 156.5) , 11 

DPEN"grp: " FOR OUTPUT AS#1 
160 PSET ( 1 78 , 110) : PR I NT# 1 , " ESPAmA " 
170 BOTO 170 

180 DATA 86,7,87,7,146,7,200,7.82,1 
1,92, 11, 102,11, 103, 11,145, 11, 192,11 
,73, 15, 189, 15,73, 19, 186, 19,74,23, 18 
5,23,75,27,185,27,75,31,186,31,74,3 



5, 187,35,74. 39, 186, 39,75. 43. 183, 
75,47, 180,47,75,51, 175,51 
190 DATA 74,55,168,55,73,59.167,59, 
72,63, 163,63,71,67, 161 , 67, 70, 71 , 159 
71,68,75, 158,75,67,79, 157.79,66,83 
157,83,65,87,67,87,70,87, 157,87 
200 DATA 68,91,159,91,71,95,156,95. 
71,99, 153,99,70, 103. 151, 103,70, 107, 
150, 107,70, 111, 150, 111,69, 115, V 
15,76, 119,77, 119,88, 119, 140, 119, 
123, 138, 123,92, 127, 113, 127 
210 DATA 94,131,104,131,96,135,101, 
135,95, 143, 102, 143,94, 147, 103, 147,9 
2, 151, 107, 151, 196,67, 197,67, 198, 
199,71, 188,71, 188,71, 184,75,191, 
182,79, 190,79, 187, B3, 1B7.83, 173,87, 



174,9 



174,9 



Test de listados ■ 



- 95 100 -221 180 -134 
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Programa ■ 



■ Por Adolfo Benítez Estévezi 



MASTER MIND 



Se trata de i 
adaptación par; 
del popular juego del Mi 
MIND, en que hay que 
el código de colores ge 
por el r 1 
con él? 



21 REH por A. BENITEZ 
31 5CREEN3 

4» OPEN "grps' FDR OUTPUT ASI1 

5» PLflVt253efgcdeeígcdet7fefcd»" 

il PSET (35 , 1«> : PRINTil , "MASTER " 

71 PSET (78, tM) :PRlNTil, -MIND" 

81 FDR M TD 15 

9» COLOR 15,4,1 

II» FOR 0=1 TO 25»:NE«T 0 

111 NEIT I 

121 COLOR,, 4 

131 LINE(l,l>-[64,48),4 

141 FOR M TO UliNEXT I 

151 SCREEN (¡COLOR 15,4,4:CLEAR:CLS:KE 

Y OFF 

168 N=RNOI-TINE) 

171 DIN EL«(4),Y0I(4),C0L*<9),GI4) 
188 LOCATE 14,4¡PRINT'HASTER KIND' 
19» LOCATE 14,5iPRINT"«"« «==" 
211 LOCATE 8,9:PRINT"1- Vir lis iMtl 

211 LOCATE 8,11¡PRINT"2- Coienzar" 

22» mmmtv a«=" boto 221 

231 IF fl«="2- GOTO 831 
24» IF A«<>"1" BOTO 22» 

41» REH instrucciones 
42» REH 
43» CLS 

44» PRINTsPRINT TA6(t2)¡"llNSTRUCC10NE 
SfsPRIMTiPRIHT 
45» PR1MT" El juego consiste en des 

468 PRIMT" código secreto de cuatro c 
olores que' 

47» PRIMT" es dado por el orden¡ 
Pira ello" 

48» PRIMT" ta introduces cuatro 
es y el' 

49» PRIMT" ordenador en la izquierda 

5»» PRIMT" ra tediante un circulo de 

31» PRIMT" gro que has acertado el ce 
lor y U' 

52» PRIMT" columa de uno de ellos, y 



es genera 



53» PRIMT' un circulo blanco que si 



566 PRINT- 'C para corregir, u 

568 PRINT' nalizar, u otra tecl 
obtener' 

569 PRIMT" la puntuación." 
57» PRINTsPRINT* Presiona una teda 

para continuar" 
5BÍ A«=" 

59» A4MNKEYS; IF A4>" GOTO 59» 
6»l CLSiGOTO IB» 
811 REH 

811 REH mliero de colores 
82» REH 

83» CLS¡ COL» ( 1 ) ="»1 " ¡ COL» 1 2) »'»3' ¡ COL» 
(3I"'»5'¡C0L<I4I='»6'¡CDL»(3)»'»7'|C0L 
»(bl"'»9'iC0L»l7l«'ll'¡C0L»(8)'"14'iC0 
L«(?)-"13* 
84» LOCATE 12,8:PRINT'CUAMT0S COLORES* 
¡PRINTsPRINT TflB (11); "QUIERES QUE H 
.'¡PRINT 

851 PRINT TABI11); 'TECLEA UN NUMERO 
RINT ; PRINT TAB 113) ¡'ENTRE 5 Y 9' 
Bol A«=" 

87» A««INKEY»¡IF A«=" GOTO 87» 
88» IF AX'3' OR A»>'9' 60T0 B7I 
89» NC0L=VAL(A»1 
1M< REH 

1(1» REH repeticiones si/no 
112» REH 
113» CLS 

1141 LOCATE 3,i¡PRINT'0UIERES QUE: " : LD 
CATE 3,9:PRINT'S- PUEDA HABER REPETICI 
ONES': LOCATE 3,11¡PRINT'M- NO HAYA REP 
ETICIOMES" 

113» A«=lNKEY«!lF A»=" 60T0 1858 
¡868 IF »»'N' OR A««'n' GOTO 123» 
1»7» IF A$»'S" OR Ai='s" 60T0 143» 



121» REH elección de colores sin ri 

icién 

1221 REH 

123» RT»=V:GOSUB 3818 

1241 EL«(l)=CDL«(m¡6(t)=H 

1251 FOR W TO 3 

1268 GOSUB 311» 

127» FOR J«l TJJ I 

128» IF COL»(H)"EL«IJ) GOTO 1268 

129» NEIT J 

13»» EL«IMX0Lt(n)i6(IM)*H 
131» NEIT I 
1321 GOTO 1611 
14f« REH 

1411 REH elección de colores con repet 



1611 REH tablero 
162» REH 

163» COLOR 14,4,4¡SCREEN 2iOPEN'grpi' 
FOR OUTPUT AS ti 

1641 LINE(l,l)-(l»3,192),l,BlLINE(25,l 
21-125,1921, liLIME(l,12)-(25, 12), liDRÍ 
"BHU,3":PRINTIl,'iaster lind" 
165) FOR 1=12 TO 1B2 STEP 2» 
166» LIME(1,I)-(1»3,I),1 
167» NEIT I 

168» LINE(16f,l)-(256,192l,9,B¡0RAN'BH 
lll,64'¡PRINTtl,'JU6ADA' 
1691 DRAM "bilil,5':PRINTil, "REPET. 
171» IF RT«="s" THEN DRAM 'bel2l,15'¡P 
•«Tfl.-Sr ELSE DRAM 'bf.121, 15':PRINT 
II, "NO' 

1711 DRAM"bil6B,16':PRINTII,'C-CDRREGI 

R"¡DRAM"BM168,32'!PRIMT»1, , F-FIMALIZAR 

1721 LC»«'8H168, I4BBH168, 8648» 1 68 , f 8IB 

H168,»96IH168,lt2BH168,128BH168,144nil 

68,16IBH168,176' 

173» CN— BsCR-36 

174» FOR l«I TO NCOL 

1 75t DRANHI D* I LC« , CN+?, 9) i PRINTtl , Ij ' 




2650 FDR 1=1 TO 4 
2660 »=U16 

2670 CIRCLE(I,6),S,VAL(EL*(I)>:PAINTtX 
,6),VAL(EL«a)) 

2660 PRESET(«-1Í,3):C0L0R 4:PRINT 11,6 

COLOR 15 
2690 NEXT I 
2000 REH 

2810 REH finalización 



2830 DRAH'Bniía,64':PRINTIl , 'N-ACABAR- 

»=INKEY»;IF A*=" 6010 2860 
2870 IF A»»-S' OR A»='s* 60T0 150 
2680 IF M»r OR M*V THEN 60T0 26? 
a ci ec cnrn laia 



3200 REH 

3210 REH rutina para ver los acii 

3220 REH 

3230 N=0:6=0 

3240 FOR W TO 4 

3250 IF EL«(I)«Y»(II THEN MMl 
)=EL«(I>fN-:Y0»(I)=Y0«(l>*V:C0L=l:6 



08U6 3610 
3260 NEXT I 
3270 FOR 1=1 TO 4 
3280 IF LEN(EL.II))O260T0 3330 
3290 FOR 3*1 TO 4 
3300 IF IEN(Y0*(J>)<>2 60T0 3320 
3310 IF EL*m=Y0*(J) THEN EL«(I)=EL*( 
I)*V:Y0.(J)=Y0«(J)»V:C0L=15¡! 
3610: EOTO 3330 
3320 NEXT 3 
3330 NEXT I 
3340 FOR 1=1 TO 4 

3350 EL»(I1=HI04(EL«(II,1,2)¡Y0»III=HI 
D»(Y0»II1,1,2) 
3360 NEXT I 
3370 IF B=0 THEN LINE(10,CRAD*2I-(15,C 
RAD-2),13,BF:PLAVt255cde' 
3360 RETURN 
3600 REH 

EH rutina que dibuja los acierto 

3620 REH 
3630 8=6+1 
3640 IF B=l THEN XZ=10:YZ=CRADM¡ 6OT0 



3670 XZ=20 
3680 IF C0L=1 THEN PLAY't255C ELSE PL 
AY "t25S«" 
3690 CIRCLE(XI.YZ) , 2, COL: PAINT ( XZ, YZ ) , 



Test de listados ■ 



10 - 0 1?» -168 

20 - 0 200 -154 

30 -217 210 -228 

40 - 17 220 - 16 

50 -163 230 - 45 

60 -228 240 -182 

70 -159 400 - 0 

80 -195 410 - 0 

90 -145 420 - 0 

100 -196 430 -159 

110 -204 440 -205 

120 - 42 450 -129 

130 -142 460 - 11 

140 - 30 470 -131 



560 -163 
562 -250 
564 -235 



840 -211 
B50 -207 
B60 -152 
870 -157 



1230 - 13 1610 

1240 -199 1620 

1250 -185 1630 

1260 -104 1640 

1270 -239 1650 

1260 -241 1660 

1290 -205 1670 



1010 - 0 1300 - 59 



570 -165 1040 - 23 1400 - 0 1710 
560 -152 1050 - 82 1410 - 0 1720 



1430 -186 1740 



2670 -141 3030 - 11 3350 - 
2680 -229 3040 -106 3360 -2 
2690 -204 3050 -142 3370 - 



0 2820 - 0 3220 - 0 3610 - 0 



29 2866 -107 3260 -204 3650 -172 

142 2870 -165 3270 -1B6 3660 -160 

0 2B86 -221 3280 - 83 3670 -196 

0 2890 - 61 3290 -187 3680 - 17 
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Programa ■ 



■ Por Angeles Picajo» 



LA RANA 



bien este juego, ya que no si 
trata más que de un; 
adaptación de dicho pi 



c) 1.987 * Angeles * LA MOSCA 



J COLOR 15. 1, 1:SCREEN 2,2 
50 CLOSEiOFÉN "GRP: " AS #1 
il GOSUE 1120 
J RESTORE 1330 
80 FOR M=l TO 10 

':FOR MM-1 TO 32 
1'00 READ A: A$=A*+CHR* < A ) 

» NEXT MMrSPRITE* <M>=A*:NEXT ti 
I IF WW<>0 THEN 170 
130 FOR 11=0 TO 230 STEF' .6sPUT SPRI 
TE 0, (M,20) , 3, 8: NEXT M 

5 FOR M=20 TO 160 STEF . 6:PUT SPR 
ITE 0. (230, MI ,3, 10: NEXT M 
150 rOF M=230 TO 12 STEF -.6:PUT SP 
'ITE 0, m, 160) ,3,9: NEXT M 
160 FOR M-16ÍI TO -17 STEP --.6:PUT S 
PRITE 0. (12.M) ,3,5:NEXT M 
170 CLSt GOSUE 890 

I SPR ITE ON: INTERVAL ON 
190 ON INTERVAL=250 GOSUE 790: ON SP 
RITE GOSUE 690 

200 A (3) =8: A (7) =-8: B< 1 ) =-3:B(5) =B 
210 C ( 1 ) =5íC(3>=8zC(5)-10iC(7)-9 
220 1=3: J=l : K=3: L=l : M~-2 : N=-3: 0=-2: 
P— 3 

230 Z=5:R=5:W=0 
240 LINE(0,0)-(255, 16) ,4,BF 
250 LINE<0,81) 



260 



. I NE ( I 



176) - 



(255, 192) , 



270 LINE <lí 
280 F-lsBOSUB 1460 
290 PSET<40,4) :PRINT#1, "PUNT. 

. 4:PRINT#1, "MOSCAS: 
300 GOSUE 730 

A=A+I : B=B+J : C-C+K: D=D+L 
320 E-E + M : F=F- 
330 PUTSPRITE 
I PUTSPRITE 
I PUTSPRITE 
l PUTSPRITE 
370 PUTSPRITE 
380 PUTSPRITE 6. 
390 PUTSPRITE 7 
9 PUTSPRITE 8 
:'. PUTSPRITE 9 



6-G+Ol H-H+F 

, 15, ; 



B+85,32) .6,4 
B+170,32) ,8,7 
;C,48) , 10,2 
:C+85,4S) , 10,4 
:C+170.4S) ,7,7 



150 putspr: 



RUT Tí 



:i PUTSPR 
il PUTSPR I 
3 PUTSPR 
3 PUTSPRI 
3 PUTSPRI 
:l PUTSPRI 
S U=STICK(0) 
ü IF U = 0 THEN ■ 



TE 20. 



TE 23, 



, 13, í. 

, 1 tí , 6 






610 R=C(U) 

620 IF P==0 THEN R=5 

630 IF YM75 THEN Y=175 

640 IF Yí-l THEN GOSUB B10: GOSUE" 73 

650 IF X<10 THEN X = 10 
660 IF X>230 THEN X = 230 
670 PUT SPRITE 0. (X.Y) ,3,R 
680 GOTO 310 
690 SPRITE QFF 

700 LIME (186. 3) -(210. 10) , 4 . BF 

710 Z = Z--1 

720 PFCSET ( 186, 4) , 4: PPIMTttl , Z 

7 4 0 P U T SPR I T E 0. (X.Y) .3. P 

750 IF STICKÍ0) THEN 750 

760 IF Z=0 THEN P»W: IMTEPVAL OFF: PE 

TURN 8B0 

770 SPRITE ON 

780 RETURN 

790 A=A MOD 256: B=B MOD 256:C=C MOD 
256: E=E MOD 256: F=F MOD 256: G=G MO 
D 256: H-H MOD 256 
800 RETURN 
810 Q=l 
820 W=W+Q*10 

830- LINE(84.3)-(112. 10) .4.BF 
840 PRESET(S4,4) . 4s FRINTtt 1 , W 

850 J==J + Q;L = L. + Q:0 = 0-Q 
860 IF STICKÍ0) THEN 860 
870 RETURN 

; ' -1 ■■ 


890 DEFINT A- 2 
900 RESTORE 96 
910 FOR A=35B4 
920 READ B 
930 VPOKE A.B 

949 VPOKE A+l, 

950 NEXT A 

,81,20,0.84,84 

84, 84,0 

970 DATA 0,64. 

4.0.0,20,84,84 

, 84 , 0 

980 DATA 84, B4 
, 20 . 20 . 0 , 0, 64 , 
64,64,0 


n 

TO 3799 STEP 2 

i» 

84,20,20,0,20,20,84, 

,4.64,64,0.64,64,64,6 
84, B4, 84, 84, 84, 84, 84 

84,20,20,20,84,84,84 
4 , 64, 64 , 64 , 64 , 64 , 64 , 


4,84,0* 


84, 0, 81 , 84, 84, 0, 84, 8 


64,64,0 

1010 FOP A=307 

1020 READ B 

1030 VPOKE A, B 

1040 NEXT A 

1050 DATA 207, 

07 

1060 CLS 
1070 RETURN 
] 080 DEFIJ5P-0: 
1090 ' 

1 100 ' P R E 


TO 3079 
83,75,91,91,75, 183,2 
=USR(0) 

SENTACION 




1120 IF WWO0 THEN RETURN 
1130 FOR M= 0 TO 4 STEP 2 
1140 LINE (0+M, 0+M) - (255- M, 191-M) , 12 

1 150 NEXT M 

1160 F=ll: GOSUB 1460 

1170 FOR M=0 TO 60 STEP 10 

1180 LINEC25+M, 120+M/2) - (230-M, 120+ 

1 190 NEXT M 
1200 RETURN 
1210 ' 

1220 ' RUTINA FINAL PARTIDA 
1230 ' 


1250 SCREEN 0:KEY OFF : COLOR 12 
1260 INPUT "¿QUIERES JUGAR OTPA PAR 
TI DA (S/N)":S* 

1270 IF S*="S" OR 5*="s" THEN WW=1: 
GOTO 40 

1280 IF 5*="N" OR S*=="n" THEN CLS:E 
ND 

1290 CLB:GOTO 1260 

13.10 ' DATAS DE ANIMALES 
1320 ' 

1330 DATA 0,0,0,16,26,63,62,127,255 
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Programa ■ 



15.25, :ir.:: : ,0,0, 2:, 24 

340 DATA 0, 128, 142. 129^ 255. 255, J27 
63, 59, 57, 1 13, r 6, 64. 96, 0, 0, 0,0-, 8 
173, 254, 252. 248,240, 224. 176, 152. 14 
0, 192,0,0 

1350 DATA 96,112,3,4,3,7,11,9,15 
,43,47, |03, 224,: ¿4, 6, 14, 16,32, 19 

1360 DATA 128, 144, 146, 139,71,39,2 
5,23, 163,71, 15,23. 19.35,97, 1,9.7 
09, 226, 228, 216. 2-10, 232. i?', 226, 2 
232, 200. 196, 134 

1370 DATA 0.2,3.4.7,2,6,14,70,62 
6, 126, 124, 122,49,0,0, 123, 128,64. 
, 128, 192, 224 , 240. 243. 252. 222 \Z < 



ROTULO DE L 



MOSCA 



, 144, : 



5. i 45. 



13,73, 1, 1,2,4, 12,0,0,1! 
32, 240,32,32,32, 224,224, 16,8. 12 
13 a !? DATA 0, 2, 1 . i?, 0, 0, 32. 17, 31 , 
3,72, 136, 17,0.0. 123.30.200,40.4: 
. 30. 24 3, 240. 224 , 203, 1 44. 160. 0. 0 
1400 DATA 0. 120. 252, 254. 127, 63, ' 



¡1.0.0. 0,0,0,30,63. 127.254.252. 
,22-:. 252, 254, i 27", 63, 30. 0, 0 
1420 DATA 0. 49, 122. 1.2 4. 126. 1.26, ¡ 
0 . 1 4 . . 2 .. T 7 . 4,7. 2 , 0 ,0,24, 1 33 , [ 24 . 
, 252,248. 240, 224, i<?2. 123. 1^2, h4. 
. 123, 0 
1430 ' 
1440 " 
1450 ' 

1460 LINE<30.B6>-<30, 106) ,F:LINE(30 
, 106) -(45, 106) ,F: LIME (60, 86) -(48,1 ~ 
60. 86) -(72, 106! ,F:LINE(54 
,96)-(66,96) ,F 

1470 LINE(90,86)-(90, 106) ,F:LINE( C 
,86) - ! 100, 96) , F: LINE- (110, 86) , F¡ LIN 

I, 106) ,F 
1480 LINE.Í120, 

35, 10t 
20. 36) . ' 



1490 LINE (145, 36) - (160,86) , F: LIN 
45,96) , F t LINE- ( 1 60, 96) , 
,F: LIME- (145. 106) ,F 
S86)-(185,86) ,F:LÍNE(1 
)-(170, 106) ,F:LINE-(135, 106) . 
_ : NC ■'■ 204 , 86 ) ( 1 92 , 1 06 ) , F : !.. T ME ( 
6) -(216, 106) ,F: LINE (173, 96) 



Test de listados ■ 





58 


230 


-129 


450 




670 




890 


- 57 


1110 


- 58 


1330 -12B 


20 


- 58 


240 


-223 


4 60 


-219 


680 


■206 


900 






-144 


1340 -148 




- 58 


250 


-145 


4"'0 


- 52- 


690 


-178 


910 


-206 




-172 


1350 -175 


40 


- 1 68 


260 


- 61 


480 


-151 




-103 


920 




1 140 


- 72 


1360 -248 


50 




270 


- 33 




-240 


710 


-167 


930 


-117 


1150 


-208 


1370 -218 


60 






-213 


500 


- 73 


720 




940 


- 71 


1160 


-221 


1380 -133 






290 


-224 


510 




730 


-159 


950 


-196 


1170 


-232 


1390 - 22 


80 


-194 




-119 


520 


-195 


740 


-163 


960 




1180 




1400 - 89 








... i 00 






750 


-102 


970 


- 82 


1190 


-208 


1410 - 9 


1. 00 


-211 


320 


-156 


540 


-198 


760 




980 


-138 


1. 200 


-142 


1420 -218 


110 






- 29 


250 




770 


- 92 


Q90 


-168 


1 2 1 0 


- 58 


1430 - 58 


1 20 


-186 


740 






-115 


780 






-178 


1 220 




1440 58 


130 


- 54 


350 
360 


-201 


570 


- 71 




-136 




-206 


1230 


- 58 


1450 - 58 


140 


- 2 




580 


-255 


0001 


-142 


1020 


-201 


1240 


-196 


1460 - 24 




- 50 


370 


- 99 






810 


- 82 


1 030 


-117 


1250 


-217 


1470 - 32 


160 




380 


-190 




-122 


820 


-235 


1040 


-196 


1 260 


- 22 


1480 - 77 


170 




390 


- 65 




- 42 


330 


-159 


1050 


-206 


1270 


- 30 


1490 - 62 


i 30 


-217 


400 


-153 


1 20 


- 14 


840 


-124 


1 060 


-159 


12B0 


-198 


1500 -250 




-212 


410 


- 24 1 




-112 


850 


-210 


1070 




12 '5 0 


«- 96 


1510 - 87 


200 








640 


- 43 


860 


-213 


1080 


- 29 


1 300 


- 58 


1520 -142 


210 








650 


- 38 




-142 


1090 


- 58 


1310 


- 58 


TOTAL: 


220 








660 


-220 


880 


-115 


1 100 


-58 


1320 


- 58 


19897 



22 



Programa ■ 



■ Por Ildefonso Pelayo ■ 



Gus and Gussy 



Conduce al gusano por todas las 
pantallas que componen este en- 
tretenido juego; pero intenta 
no chocar con los obstáculos 
móviles que aparecerán en tu or- 
denador. Un buen ejemplo de 
juego de acción en BASIC. 



' til SUS AND 6USSY II 



' III POR ILDEFONSO III 



12» 'IPRESENTACIONI 

131 SCREEN 1 , 2: KEVOFF : CLS: COLOR 15,»,» 

: CLEAR 1M« 

14» FOR FI*J TO 364 STEP 364 
15» FOR 1*6211 TO 6213:VP0KE I*FI.2I 
>0KE 6215+F1.219: VPOKE U17*FI 
«=6219 TO 6225:VP0KE«*F¡,?I9: 



NE*T:VI 



E 6222+F] 



16» VPOKE 6242+F1, 219: VF>0KE 62«7»F1, 
219:VP0KE 6249*FI,219:VP0KE 6251*FI.2t 
9: VPOKE 6235*1 



'6 TO 



62B9:VPDKE I+F 1 , 2 1» : NEIT : VPOICE 6278* 
,32:VP0KE 628»*F1,32:VP0KE 6262*F1,32: 
VPOKE 6286*FI,32 

VPOKE 63M*Fl,2t«!VraKE 63II*FI. 
219:VP0KE 6313*F1,2I9:VP0KE 6317*F1,21 
E 6321*Fl,2!9:VP0KE 63t9.FI. 219 
19» FOR «"6338 TO 6341 ¡ VPOKE 1*F!,2j 
9iKÍIT:F0R 1=6343 TO 6343:VP0KE 1*F],2 
T:F0R 1=634' TO 6353 : VPOKE I*F 1,2 
19:NE«T:VP0KE 635»*FI,32 
2»» NEIT 

« «=6611 TO 668? STEP 12: VPOKE i 
IPOKE l*2,219:NEIT:F0R I=66'6 '0 
6741 STEP 32:VPOKE «,219:NE«T 
22» FOR 1=6358 TO 6422 STEP 64:VP0KE> 
,219:VP0KE X* 1 , 21 9: HEXT: FOR C6389 TO 
6453 STEP 64:VPOKE 1,219¡VP0KE 1*3,219 
iNEIT 

231 VPOKE 6458,219:VP0KE 64B3,219:VP0 
CE 646e,219:VPOKE 6469,2I9:VP0KE 6516, 
219:VP0KE 6519, 219: VPOKE 6521,219:VP0K 
E 6522,219 

I LOCATE 1I,22:PR!NT-PUSH SPACE 1 
251 K*=I»KEY» 



261 IF K«=- ■ THEN 271 ELSE 251 

«INSTRUCCIONES-ELECCION NIVEL* 
275 RESTORE 

281 SCREEN 1,2:L0CATE 5, IfiPRINT'INST 

RUCCIONEStS/W»-'" 

29» 1N*=INKEY* 

3M IF MM'S' 0R Il»»=-s- TREN 33» 
31» IF IM> a r OR IM=V THEN 45» 
32» 60TO 29» 

33» SCREEN »:L0CATE l»,»jPRINTMINSTRU 

niMEsr 

34» LOCATE 3,2:PRINT'E1 «lívido Sven 
ha capturado i tu pro«tida,la pnnces 



38» LOCATE 1,12:PR1NTM Tocas 1» par 
edes que Sven ha rociado con insec 

39» LOCATE 1,14:PRINT-| No pasas de p 

o la entroja.' 

4«l LOCATE 3,16:PR1NT-A lo largo del 
trayecto encontra- rls partes de una 1 
lave que luego te servir! para abrir 1 
a aaziorra donde se encuentra bussy." 
41» LOCATE 9,2»:PRlNT'Buena suerte, 6u 

42» LOCATE 9,22:PR1NT-PULSA UNA TECLA 



47» LOCATE 6, 22: PRINT'ESPEfiE Ul 



CHS» IM3F I *CHR« I.H671 *CHR« IIH7F I *CHR» I 
IFFI ♦CHR» (IHFF) 

>« 8«=CHRI(«HFFHCHR«liHFFI*CHR«<.H73 
•CHR» ( *H3 1 *CHR» ( t>H3 1 *CHR» ( IM3 ) *CHR» ( . 
¡•♦CHR«I«H»> 
MI C»=CHR» ( VNt 1 *CHR» ( UU I *CHR » ( U« I *C 
HR« I UM I *CHR« I »H» I *CHR« I tH» I *CHRI I IH» ) 
♦CHR»(IH»I 

5 1 » 04=CHRI ( ItHf 1 +CHRH M 1 » 1 *CHR4( ItHBB I 
♦CHR» IIHFF 1 *CHR« (IHFFI *CHR» (IjHFF ) *CHR« 
lliHE6)*CHR«ltH«l 

52» A 1 t=CHR« ( Wfl *CRRI I «H8 ) *CHR« I M 1 0 1 
♦CHRI < IHFF ) »CHR» I ItHFF ) *CHR« ( IHFF | *CHR» 
l.H67l*CHR»(lrH»l 

53» C 1«=CHR» I IrHf ) *CHR« ( «H» I *CHR« ( IH78 I 
♦CHR» UHFC1 *CHRI («HE6I *CHR» IIHFE I *CHR» 
(IjHFF)*CHR$(IjHFF1 

54» 01 »=CHR« ( IHFF I *CHR» ( IHFF ) *CHR« I IjHC 
El *CHRI I tHC» > ♦CHRI ( IHC»I ♦CHR* ( IHC» I *CH 
RtliHMI 

55» A2«=CHR» I tH») *CHR» ( IH1 1 »CHR« 1 1H3E 1 
♦CHR» IIH7E I *CHR« UHFF I ♦CHR* I «H8» I »CHR* 
llH7FUCHR«UH87l 

56» B2*=CHR» UH3 I *CHR» IIHF i *CHRI I W I D I 
♦CHR* (liH3BI ♦CHR* ( IH3C I ♦CHR* ( IHF I ♦CHR* - 
tHlWCHRIIIiHlAI 

57» C2*=CHR«(«H6»] *CHR«(IjH3B1 ♦CHR»(IHB 
C ) +CHR*(IH3E I «CHR» I IHDE I *CHR« I MFC I *CH 
R*(MFCI*CHR«(MF») 

56» D2«=CHR« IIHC» I *CHR« IMF8 ) *CHRI 1 Mf 
E I *CHR» ( M5 1 1 *CHR« ( M2 I *CHR» ( IHFC I *CHR 
«IVHA»I*CHR«I«HE0 

59» A3»=CHR» I M7I ♦CHR* ( MC I ♦CHR» I M3D I 
♦CHR» I IH7C I »CHR« I M7BI ♦CHR* (M3F I ♦CHR» 
(IH3FI*CHR«(IHFI 

s»« B3«=CHR« IM3I ♦CHRI (IN1F ) ♦CHRIHH7F 
I ♦CHRI ( MAA) «CHR* I M44 I ♦CHR» ( M3F 1 *CHR 
»(Uc3l*CHMIU07l 

6 1 1 C3»=CHR» < MB» ) ♦CHRI ( M48 1 ♦CHRI ( M7 
C I *CHR» I M7E I *CHR« I MFF I *CHR« ( M 1 ) *CHR 
♦(IHFEI*CHR«(«HE1I 

62» D3»=CW« I WC» 1 *CHR» IMF» I *CHR* I MB 

6)«HM(lh11C)*tHJr»(imi*CI«»(WF»)*CH 

R»IM6«UCHR»IM58> 

631 A4»=CHR»(M1 1 ♦CHR»(M3) ♦CHR»(M4I • 




CHRI I MMIKHM ItM > ♦CHR» tUM )«CMM(IW 
l+CHR»(*H7) 

640 B4«=CHR«< kHDI ♦CHR» I VH73) ♦CHR» I WBB 

I ♦CHRt f MI77) ♦CHM IW9F) »CHM IVHBI+CHR» 
IIH98).CHR»(IH7I) 

65» C4»=CHR» IIHIB) ♦CHR» (MMI «CHM (IH4 
2I.CHR«(lH2).CHR«(iH2>.CHR«UH2I.CHR«< 
IH6LCHRÍIVH6) 

bbt D4MCHM (IHIE) ♦CHMI 4HEE ) .CHR» i &H7 
71 ♦CHM I lrHB9 1 .CHR»(lrHA2 I .CHR» IW1 ! I «CK 
R»!IH22I.CHR»(»H44> 

678 A3»=CHR« <»H1 D) .CHR» UH21 1 *CHR»(iH4 
3 I .CHR» I t H4» > «CHM IIH4I) *CHR» I IH40I .CU 
R«(iH6»l.CHR»UH6»i 

s8B B5*=CHR» ( IH78) »CHR« ( IH77 i .CHR» i liHF 
E 1 *CHft* <liH?l I .CHR» I IH43I ♦CHM ( VH86 ' -CH 
RÍUH44I.CHMHH22I 

698 C5»=CHS* [IHH I +CHR* IIHCII tCHM (Utt 
II *CHR» (IH2I) .CHR» ( Util .CHR» I tHI > +CHR$ 
UHÍI.CHMIIHE»! 

7N D5«=CHR« IIHM! ♦CHM i SHCE i .CHR» (Wl 

I I *CHR» UHEE I .CHR» I »HF9 ] .CHR» i Mt I *CH 
R«I1H19).CHR»UHE> 

7 1 1 E«=CHR» I Mí > ♦CHR» I IHI6I *CHR* (W3FJ 
•CHR» ( IH7F I .CHR» ( ÍHB7 1 .CHR» I ME? I »CHP» 
'IH27KHRHIH3I 

728 F««CHM(lHFcCHR»(WfCHMIlH171. 
CHR» I IH37 1 »CHR» ( IH66 ! >CHR» i IHC6 1 .CHR» I 
ÍH3I.CHRÍIÍH3) 

73» 6»=CHR» ( VH4C ) .CHR» í IHIC ) .CHR» ( IH3E 



•48 H»=CHR»UH5El.CHR« 
).CHR»(IH3I.CHR»i;H62 
!,HCI»CHR»lkH8> 

l=CHR»UH32l»CHR< 
(IH7E!.CHR»(IHD( 



C.'.CHR) 



IH78>.CHR»IIHFF> 
l=CHR»ll« 



»HC»I.CHR«UH46M 
R«IIH3IMCHR«IIHI8> 

l=CHR»HH3I^CHR»ll 
KIHFEHCHRIUHEDH 
IIUCII 

78i H1»=CHR»UHF»HCHR«UHF»UCHR 
8I.CHR»(WFC).CHR»IW66I.CHR«HHÍ 
R»IIHC»)*CHR«(MC») 
791 SPRITE» [#> =«*+B*+C**D* 
BM SPR I TE» ( 1 1 -C«+A 1 **C I «*D I ♦ 
811 SPRITE» ( 2 ) -A2»+B2»+C2»*D2« 
821 SPRITE«(3)«A3»^B3»*C3«*D3* 
831 SPR1TEX4) =M**B4»*C4»tD4* 
841 SPR I TE» ( S ) -A5»+BS»+C5»*D5» 
85» SPRITE»(4)=E«+F»*6*+tt» 
Sil SPRITE»<7>=E1»+F1«*6I**H!» 
871 ' «ELECCION NIVEL» 
881 CIS 



921 FOR A'l TO 3 

93» LOCATE 1 , ¿«AtSs PftIRTA; ■- HIVEL*;A- 
VIDASi'iB-A 

941 NEXT 

951 KS»=INKEY« 

%í IF KS»=T THE» Vl=ó:60T0 112» 
978 IF KS«= , 2" THEN VI=5:60T0 1128 
981 IF KS««"3* THEH VI»4:60T0 1121 
991 IF KSM'4' THE» VI«3¡60T0 1121 
INI IF KS»»'5' THEH V>2:HT0 1121 
lili BOTO 931 

1121 SS"VAL(KS»):PLArV15L1205EF6ADBD. 

DEFABEFOFI" 

1131 FOR A»l TO 3 

1141 LOCATE 1,6+SS»3:PR1NT- 

1151 FOR Til TO 5IMEIT 

1861 LOCATE 1 ,6+SS*3:PRIMTSS; NIVEL' 

;SS- VIDAS: -I8-SS 

1171 FOR F1M TO 588: HE F 

UBI NEXT 

1191 'ItREKFINICION CARACTERES» 

lili CLS:CR=ItPA=l :KE=S 

1111 VPOKE 8197, 12B: VPOKE 8192,128 

1121 FOR A'32l TO 383:READ B:VPOKE A,B 

■HIT 

1131 DATA 1,254.234,234,1,239,239,239 
1141 DATA 1,1,1,15,31,56,48,40 
1151 DATA 40,241,224,241,127,63,15,7 
116» DATA 7,7,7,7,7,7,7,7 
1171 DATA 1,1,1,128,192,96,96,96 
1181 DATA 96,121,56,121,241,224,128,1 
1191 DATA 1,1,192,192,192,1,1,1 

DATA 255,255,255,255,255,255,255, 



233 

1211 '(PANTALLA NO 



123» LOCATE »,»:PRINrENER6V:L0CATE15 
,»:PRINT US]NÍ'ROOn:ir¡PA:LOCATE 23,1 
:PRINT USINE'KEYS:f;KE 
124» LOCATE 6,8¡F0R 1=6132 TO 6159:VP0 
KE (,47:NE*T 

125» FOR (=6181 TO 62»6:VPOKE (,4»:NE« 
T 

126» FOR «.6176 TO 69M STEP 32: VPOKE 
«,4»lNEJT 

1271 FOR ««6217 TO 6751 STEP 32i VPOKE 
I,4fftNEIT 

12M FOR (=6888 TO 6911: VPOKE X,4f:*EX 

179» 'ISUBRUTINA PANTALLAS! 
13»» IF PA=1 OR PA=1¡ THEN 141» 
1311 IF PA>2 OR PA-12 THEN 1451 
1321 IF PA-3 OR PA«9 THEN 1491 
1331 IF PfW OR PAM5 THEN 1331 
1341 IF PA=3 OR PA*14 THEN 1631 
1331 IF PA-6 OR PAMI THEN 1691 
1361 IF PA«7 OR PA«13 THEN 1771 



27 



Programa i 



1371 IF PA-Í THEN 1841 
1381 IF PA=14 THEN 1931 
1398 IF PAM7 THEN 1978 
1MI '(PANTALLA 1/111 
1411 FOR «=44M TO 4425:TOE 1,48|NEI 

1421 FOR ¡«4442 TO MUiVPOKE l,4flNEl 

1431 6OT0 2131 
1441 ' (PANTALLA 2/12 I 
1451 FOR K-A186 TO 4788 STEP 32: TOE 



1481 ' IPANTALLA3/91 

1491 FOR ««4334 TO 69M STEP 384¡F0R A 

•I TO 4iVPOKE 1*A,48iIIEIT:N£IT 

15M FOR X-t5*2 TO 65*5: VP04CE X,4I:NEI 

1511 FOR 1=4184 TO 4751 STEP 32: TOE 

i,4<iKn 

1521 FOR 1=4843 TO 4311 STEP -32:VPOKE 
I,4fiKIT 
1534 GOTO 2831 
1548 ' (PANTALLA 4/151 
1558 FOR 1=4527 TO 4535:TOE I,48:NE1 
T 

1548 FOR «=4724 TO 4742:VPOKE I,48:NE« 
T 

1578 FOR 1=4198 TO 4784 STEP 32: TOE 
I,48:NE1T 

98 FOR ««4874 TO 4337 STEP-32iVPOKE 

18! «IT 

1598 FOR 11=4354 TO 4342 :TOE1,< 
T r FOR 1=4515 TO 4517:VPOKE l,48:NE«T:F 
OR 1=4547 TO 6549:TOE I,48:NEIT 
1488 FOR «=4579 TO 6581 = VP08CE I,48:NE1 



18 bOTO 2838 



1428 'I 



.A 5/141 



t FOR 1=4174 TO 4488 STEP 32¡FOR 0= 
8 TO 22 STEP 12:VP0KE «*0,48:NEIT:NEIT 

18 FOR 1=4454 TO 4848 STEP 32: FOR D= 
0 TO 22 STEP 12.TOE X'D,48¡NEIT:NEIT 
1438 FOR 1=4782 TO 43B8 STEP-32;VPOKE 
I,4f:NEIT 

1448 FOR 1=4328 TO 4334; TOE I,48:NEI 

1478 SOTO 2838 

I ' (PANTALLA 4/181 
1898 FOR «=4481 TO 4475 STEP 34; TOE 
«,48:VP0KE X+l,«jW08CE I-1,48:NE1T 
1788 FOR ««4473 TO 4338 STEP -32; TOE 
X,48:TOE 1*1,48:NEIT 
1718 FOR 1=4355 TO 4341:TOE «,48;NEI 



OR «=4417 TO 4422; TOE «,48;NE( 

OR «=4181 TO 4338 STEP 34: TOE 
«,48:TOE «♦1,48:VP0KE Ii2,48:NEIT 
1748 FOR 1=4494 TO 4988 STEP 34: TOE 



1778 FOR 1=4183 TO 4788 STEP 32: TOE 
«,48¡NE«T 

1788 FOR «=4495 TO 4499; TOE «,48:NE» 

1798 FOR (=4983 TO 4342 STEP -32: TOE 
«,48:NEIT 

1888 FOR 1=4348 TO 4339:TOE 1,481*1 

818 FOR 1=4728 TO 4848 STEP 32: TOE 

,32¡NEIT 
1828 60TO 2838 
1838 ' (PANTALLA 81 

1848 FOR 1=4182 TO 4788 STEP32:TOE I 
,48:NE«T 

1858 FOS (=4728 TO 4848 STEP 32: TOE 
»,32iN£IT 

1848 FOR «=4494 TO 6498:TOE (,48:NEI 

1878 FOR ««4498 TO 4571 STEP-32-.TOE 
(,48:TOE I*5,4»|NEIT 
1688 FOR 1=4578 TO 4575:TOEI,48:NEIT 
1898 FOR «=4784 TO 4718:TOE «,48:NEI 

T 

19H FOR 1=4874 TO 4382 STEP -32: TOE 
(,48:NE1T 
1918 60T0 2838 

' (PANTALLA 141 
1938 FOR 1=4215 TO 4432 STEP 32:F0R F = 

] 23:TOE I*F,48:NE1T:NEIT 
1948 FOR 1=4593 TO 4888 STEP 32:F0R F : 
8 TO 23:TOE I*F,4»:NEIT:NEIT 
.OTO 2838 
(PANTALLA FINAL( 
1978 FOR 1=4215 TO 4488 STEP 32:FOR F= 
8 TO 23:TOE 1*F,48:NE«T:NEIT 

18 FOR 1=4425 TO 4911: TOE X,48:NEI 

1998 FOR 1=4421 TO 4413 STEP 32:TOEJ 

l:TOE 1*1,41:8X11 

NJ PUT SPRITE 3,1228,1821,13,8 

8 60TO 2838 

!8 ' (BUCLE PRINCIPAL! 

¡8 I=14:Y=14:B=128:V=44:N=8:Z=8:K=88 
:L=24:TR=148!T=8 
2848 PUT SPRITE 1,II,YI,3,1 
2858 D=STICK<8) OR STICKIII 
2848 ON SPRITE SOSUB 3598:SPRITE ON 
2878 IF «>233 THEN 2378 



2888 IF ¥<15 THEN ¥=15 
I IF «<8 THEN 1=8 
! EN=EN*t:IF EN/23=INT IEN/231 TI 
JE 3578 
2118 N=INT(l/8l:a=INTI¥/8) 

8 5=4144*8*32(0 
2138 IF 0=8 THEN 2478 
2148 IF 0=1 THEN 2488 
F D=2 THEN 2418 
2148 IF 11=3 THEN 2438 
2178 IF 0=4 THEN 2448 
2188 IF D=5 THEN 2448 
2198 IF 0=4 THEN 2488 
2288 IF 0=7 THEN 2588 
2218 IF 0=8 THEN 2318 
2228 IF PA=1 OR PA=11 THEN 2558 
■12 THEN 2418 



A=! Of 



!N 2788 



2258 IF PA=4 OR PA=15 THEN 27 

I IF PA=5 OR PA=14 THEN 2988 

2278 IF PA=4 OR PA=18 THEN 3848 

2288 IF PA«7 OR PA=13 THEN 3128 

2298 IF PA=B THEN 3228 

2388 IF PA=14 THEN 3328 

2318 IF PA=17 AND 1>=88 THEN 3398 



2328 6( 



2338 '(PUESTA ESCENA SPRITEI 
2348 PUT SPRITE 1, (I,Y!,3,CR:6OT0 235» 
2358 6U=VPEEK(S):1F 6U=41 OR BU=4 
3 OR BU=44 OR BU<45 OR 6U=44 THEN 
B 3748 ELSE 2228 
'1SUBRUTINA CAHBIO PANTALLA1 
CLS:PA=PA*1:EN=8 
23B8 FOR A=8 TO 14:PUT SPRITE A,. -31 
38I,8,A:NEIT:B0T0 1228 

HOVIHIENTO! 
2488 Ul =VPEEK I S-32 1 : U2=VPEEK I S-3 1 ) : I F 
11*02=72 OR U1*U2=88 THEN 3598 ELSE V 
-B:60T0 2348 

2418 U1=VPEEK(S-32):U2=VPEEK(S-31I:R1= 
VPEEK I S*2) : R2=VPEEK IS*34 1 : 6=VPEEK I S-38 
)*U1*U2*R1*R2 
2428 IF 6=148 THEN 1=1*8: Y=Y-B:CR=1: 60 
TO 2348 ELSE 3598 

2438 R1=VPEEK(S*2I:R2=VPEEK(S*34I:IF R 
1*R2=72 OR R1*R2=88 THEN 3598 ELSE «=1 
*B:CR=1;60T0 2348 

2448 R1=VPEEK(S*2I:R2=VPEEKIS*34I:A1=V 
PEEK (S*44) : A2-VPEEK (S+45) : I=VPEEK (S*44 
)*A1*A2*R1*R2 

2458 IF 1=148 THEN 1=I*8:Y=Y*8:CR=1:60 
TO 2348 ELSE 3598 

2448 A1=VPEEK(S*44I:A2=VPEEK(S*45):IF 
A1*A2=72 OR A1*A2=88 THEN 3598 ELSE Y" 
*8:60T02348 

478 Al=VPEEKIS*44l:A2=VPEEK(S*45l:IF 




A1+A2-72 OR A1»A2«8« THEN 5391 ELSE 1' 
Y+4:60T0234» 

24H Al-VPE EK (S+641 ¡ A2=VPEEK ( S+65 1 : L I ■ 
VPEEK IS-l ) :L2=VPEEK «S+JI ) : H=VPEEC (S+63 
(♦MtOMlHJ 

2491 If H=I6« THEN í=I-8: *=Y+8:CR=«:60 
TO 234» ELSE 359» 

25M L1=VPEEKIS-1):L2=VPEEKIS+31):IF L 
l+L2»72 OR LI+L2-8» THEN 359» ELSE («« 
-8:O»:60T0 2341 

25!» U I -VPEEIt ( S- J2 ) : U2-WPEEIÍ i S- 3 1 ) : L 1 = 
VPEEK IS-1) :L2=VPEEK 1S+31 ) :F=VPEEK 18-33 
'♦Ut*U2*Lt*L2 

2321 IF F=16» THEN |.J-B:»>V-Í¡CR'I:6(1 

TO 234» ELSE 359» 

253» 'ISPR1TES PANTALLAS! 

254» 'IPANTALLA l/Ill 

255» IF N=» THEN T=T»5:1F T>=95 THEN N 

=N+l:SOTO 257» 

256» IF N»l THEN T=T-5:IF T'=» THEN N= 
N-l:6üT0 257» 

257» PUT SPRITE 2, (2»8,15+T),I»,2:PUT 

SPRITE 3,I23»,II«-T),1»,2 

236» PUT SPRITE 4, (9», 14Í+T/4I ,9,4¡PUT 

SPRITE 5,1145, 165-T/4), 9, 4:PUT SPRITE 

ó, (2M,148*T/4¡,9 4 

259» PUT SPRITE 7, [11,7«+T),1»,3:PUT S 
PRITE 8,(31,165-T),U,3:60TO 2»5» 
26»» 60T0 232» 

261» ' IPANTALLA 2/121 



2621 IF N=» THEN T-T*3:IF T>>5« THEN N 
-||>1¡60T0 2641 

2631 IF N«l THEN T=T-5: IF T<=5 THEN N= 
M-li&OTQ 2641 

264» PUT SPRITE 2, II»+T, 145-NI2») , 11,3 
:PUT SPRITE 3, 164-T, 165-NI2») ,l»,2 
265» PUT SPRITE 4, (9»+NI2»,4»+TI2l, 1», 
3:PUT SPRITE 3, 11U-NI2», 14»-TI2),U,2 
266» PUT SPRITE 6, [I35+NI2»,4l+Tt2l, 1» 
,3:PUT SPRITE 7,I135-NI2»,14»-TI21,1», 
2 

267» PUT SPRITE B, < 175+T, 35) , 1I,3:PUT 

SPRITE 9,(235-1,531,11,2 

266» 60T0 232» 

269» ' (PANTALLA 3/91 

27»» IF N>( THEN T=T+5:IF T>=5I THEN N 

=N+l:60T0 272» 

271» IF N=l THEN T=T-5:IF T<=5 THEN N= 
N-1:60T0 272» 

272» PUT SPRITE 2, 1125+TI2,4»+NI251 , 1» 
,2:PUT SPRITE 3,I235-TI2,6»-NI25I,1»,2 
273» PUT SPRITE 4, (125+TI2, 1U+NI251 , 1 
»,2:PUT SPRITE 5, I235-TI2, 13Í-NI25I ,1» 

,2 

274» PUT SPRITE 6, 145, 2tHT> , 9, 4: PU1 SP 
RITE 7,I45,I7»-T/2I,9,5:PUT SPRITE 8, ( 
3l,12fl-Tl,9,4 

2751 IF LL»1 AND PA=3 THEN VPOKE 67B6, 
41 

2761 60T0 232» 



277» 'IPANTALLA 4/131 

278» IF Z«» THEN V=V+8:IF V>=12» THEN 

!=Z+l:60TO 282» 

279» IF Z=l THEN 8=8+8: IF B>=I84 THEN 
Z=2*I:60TO 282» 

2BM IF Z=2 THEN V=V-8: IF V<=64 THENZ= 
2+1 :6DTG 282» 

281» IF 2=3 THEN B*B-8:IF B<=128 THEN 
Z'liSOTO 282» 

2821 PUT SPRITE -3, 16, V), 15, 6: PUT SPRIT 
E 4,(314-6,184-V),15,6:PUT SPRITE 5, IB 
/2,V/2+15),15,6:PUT SPRITE 6, I3»,l»+!l 
V+B1/2I1,8,3 

283» IF N=» THEN T=T+5: IF T>=5» THEN N 
=N+I:60T0 285» 

2B4» IF N'l THEN T=T-5: IF T<*5 THEN N= 
N- 1:6070 285» 

285» VPOKE 6533+T/l«,4»:VP0KE 6536+T/l 
»,32:'VP0KE 6727-T/l»,4»:VPOKE 6726-T/ 
11,32 

266» VPOKE 6336-T/15,4»:VP0KE 6353-T/l 
5,32:VPOKE 656»-T/l5,4»:VP0KE 6559-T/l 
3,32 

287» l/POKE 6426+T/15,4»:VP0KE 6427+T- l 
5,32 

288» 60T0 232» 
289» IPANTALLA 5/141 
29»» IF N=f THEN T=T.32:(F T=I6« THEN 
N«N+1:60T0 292» 

291» IF N»l THEN T=T-32:IF ' =» THEN H 
=»- 1:6010 792» 

292» VPOKE 6344+t,4»:VP0KE 6376+T,32:V 

POKE 6696-1,4»: VPOKE 6664-T.32 

2«3» VPOKE »356+T,4»:VP0KE 6386+\32:Y 

POKE o'»B-T,4«: VPOKE 6676-T.32 

294» VPOKE 6328- 1 8»,4»:VP0KE 5327-'. 8 

9.32 

295» PU' SPRITE 5. 'B+> »,44i. 13. 6:PUIS 
¡=¡*l:bOTC ;•«« 




K -=128 THEN 
:< =28 THEN i 



= 2>l:6OT0 3M» 
299» IF 2«3 THEN K=K-¡»:IF K<=84 THEN 
:=»:60TO 3»»« 

',»•« PUT SPRUE ?, t.. ,9,«:PUT SPRITE 
4,(2le-K,176-Li,9,4 
3«1» !F u»! AND PA=5 THEN VPOKE 626», 

3»2( 60T0 232» 

i»3» ' (PANTALLA 6 1(1 

3*4» IF »=» THEN T=T+;:IF T =4 THEN N= 

N+1:60TO 3»6» 

3»5« IF N=l THEN T=T-1:IF KM THEN H-- 
N- 1:6070 3»6» 

3»6« PUT SPRITE 3,(56,TI12+25),15,6:PU 
T SPRITE 4,(1«4,95-TI12I,I5,6 
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Programa mmumm— ^f^rm 



3171 PUT SPRITE 5,I2I2»TU,56),II,3;P1) 
TSPRITE 4, (195-716, 124), l»,2 






14551, 3 

351» LOCATE 7,16:PRINT\0 HA5 C0NSE6U! 


3880 VPOKE 6672*7132, «¡VPOKE 67«4*TI3 
2,32:VP0KE 4493-TI32, «¡VPOKE 6663-TI3 
2,32iVP0KE 4494-T.4»! VPOKE 4493-T.32 
3«9« IF PA=4 AND LL=1 THEN VPOKE 6792, 




m\ 




uu ¡lim-nic ip,ioirnmi-nuT BltH" 

352» A«=M5T25»L205D04L46AB05CL2D046E 
05E4LBC048L405CDEFI620462.05L8C04BL405 


43 

JIM IF PA=1» AND Li-I THEN VPOKE 6792 
,45 

3111 60T0 232» 

3121 'IPANTALLA 7/131 

3130 TR=TR-8: IF TR<=5 THEN TR=I68 

3148 PUT SPRITE 3, (TR,164),15,4:PU7 SP 

RITE 4,(TR-1B,148I,15,6 

315» IF N=0 THEN T=T*5: IF T>=20 THEN N 

=«♦1:6070 3178 

3161 IF N=l THEN T=T-5:IF 7<»l THEN N= 
H- 1:6070 3178 

3178 PU7 SPRI7E 7, (64*TI2, 188) , 15.r-.PU 
T SPRITE 6,(144-712,111), 13,4 
3188 PU7 SPRITE 9,(114-112,421,15,7 
3198 PUT SPRITE 11, (202*1,60), 12, 2:PUT 
SPRITE 12,(222-7,1211,12,3 
3218 PUT SPRITE 13, (14.7,561, 9,4¡PUT S 
PRI7E 14,(34-1,941,9,5 
3218 6OT0 2328 
3221 ' IPANTALLA 8» 

3248 PUT SPRITE 3, '.TR, 166) , 15, 6: PUT SP 








4L2D03B604003L4DO4C03BAL2B1A6' 
354» PLAV Al, 8» 

355» FOR Fl= 1 T0 58«8:NE«T:60T0 13» 
3568 'ISUBRUTINA MUERTE POR ENERGIAS 
357» PLAY"V1504L64AF07CB"¡VPOKE 414»-E 
N/23,219¡IF VPEEKI4152I=219 THEN EN=5» 
»»¡6OT0 359» ELSE RETURN 
358» 'ISUBRUTINA MUERTE POR PAREDI 
359» SPRITE 0FF 

34»« PUT SPRITE 1,(I,Y),B,CR:F0R FI«1 
T0 BMiNEIT 

3411 FOR 1=2» TD 1» STEP -1:PLAVV15L4 
W>l|'lNEIT 

342» PU7 SPRI7E I, IK,YI,14,CR¡F0R 1=1 

363» FOR FI=» 70 14:PUT SPRITE FI,(-Ji 
,-3»),15,FI:NElT 

344» IF EN=5»(( THEN CLS:L0CATE B,18:P 
RIN7-ENER6Y 0VER" , :F0R »•] 70 13»»:NE 

N 367» 


RITE 4, (TR-18, 1481,15,6 

3258 IF N-8 THEN 7=7*5: IF T= 38 T HEN H 

■-\ ELSE 60T0 3278 

326» IF N=l THEN T=T-5:Ir T\=8 THEN N= 








364» LOCATE 9, 18:PRINT'PLAY START"¡LQ 
CATE 11,14:PRINT-REST:-¡VI:L0CATE 10, J 
8 : PRINT "KEYS : " : ON KE SOSUB 3698,3788,3 
7I»,372»,3738,374»:<0F F 1= 1 TO 18«»¡NE 


8 ELSE EOTO 327Í 




<T¡CLS¡60TO 123» 


327» PUT SPRITE 7, U14-NI32,85-TI2I , 12 
,3:PU7 SPRITE 8, (B2.NI32, 28*1121 , 12, 2: 
PUT SPRITE 9,(1B4,2»*T),15,6 
328» VPOKE 6534»T/a,4«:VP0ltE 6535*T<8, 

329» IF LL=1 IHEN VP0KE4632.44 
33»» 6070 232» 
3318 ' IPANTALLA 161 




18:PRINT-N0 TIENES TODAS LAS LLAVES" :L 
0CA7E ■6,i::PRIN7'EHPIE2A 0'RA VEI - :PA 
=1:F0R FI = 1 T0 I5»»:«En¡aS;60TO 1238 
3488 FOR A=» 70 3 

341» VPOKE 6419,41:VP0KE 442»,44:VP0»E 
6451,42:VP0KE i452,45¡VP0KE 6483, 47¡v 
POKE 6484,44 
3428 PLAVV1507CC" 
343» FOR FI»1 T0 5»»:NEI r 




F I =50 TO 8»:PLAí , V15L4BN=Fl:-¡NEn:F0 
R Fl=l TO 5»0:NEIT 
368» FOR F!=l TO 20«0¡NE»T:6OTO 13» 
369» VPOKE 67»5,41:RETURN 
37»» VPOKE 67»5,41:VP0KE 6737 , 42¡ RETUR 

371» VPOKE 67»5,41¡VP0KE 6737 , 42: VPOKE 


332» IF N=« THEN T=T»32:IF T=:128 THEN 
N=l ELSE 60TO 334» 

333» IF N=l THEN T=T-32:IF T=<» THEN N 
=• ELSE 60TO 334» 

334» vpoke 6439*t,40:vpoke 6445*7,49: v 
p0ke 4451*7, «¡vpoke 6457+ t ,40:vpoke 6 
4'i*',:::v»o»e 44"*t,;:¡vhke m8>t, 

32:VPOKE 4489*7,32 

335» VPOKE 657»-7,4»¡VP0KE 4576-T,4»¡V 
POKE 6582-7, «¡VPOKE 4538-7, 32: VPOKE 6 
344-7, 32:VP0KE 6358-7,32 
3368 IF LL=1 7HEN VPOKE 6B18.46 
3378 6070 232» 
338» 'tULTIHA PAN7ALLAI 
3398 IF KE<6 THEN CLSiFOR A>< TO 3:PUT 
SPPITE A, -38,-38), 0,Í¡NEIT:LOCATE 2, 




344» VPOKE t»419, 32: VPOKE 6428,32: 'POKE 
POKE 4484,32 

345» FOR FI=I T0 5»»:NE< T 
344» NEI T 

347» COR T =t>ói: Tí ,421 S7EP-32;V»0KEJ 
,32:VP0KE M.32;F0F F i = 1 '0 JM:«E«T: 
NEH 

348» F0P 5T=Y T0 ¡82:PUT SPRITE i, 8». 
67),3,1:F0R FI=1 70 5»:NEIT:NEIT 
349» FOR 60=8 TC 68 STEP 1»:P'. ,T SPRITE 
l,i8»*6U,I»2),3,!:PUT SPRI7E 3,.22»-t : 
b,¡e: ,¡3,»;F0R P| = l TO 3M:NEIT¡NEK t 
35»» VPOKE 6419,)¡VP0KE 6433,3¡VPOKE j 
482,:: í312,::VP0rE 6488,3:VP0KE 




4769, 43: RETURN 

3728 VPOKE 6705, 41 ¡VPOKE 6737 , 42: VPOKE 
6769, 43: VPOKE 6786, 44: RETURN 

3730 VPOKE 6'05,41:VPOKE 6737, 42: VPOKE 
6769,43:VPOKE 67*6 , 44 : VPOKE 6738, 45:R 

E7URN 

374» VPOKE 67»5,41:VP0KE 6737 , 42: VPOKE 
4769,43¡VP0KE 47I4,44:VP0KE 6738, 45:V 
POKE 677»,44¡RE7URN 
375» 'ISUBRUTINA LLAVES! 
3768 VPOKE 5,32:KE=KE*1:PLAY'V15L6407C 
CCN55 1 :LL=0:LOCATE 23,8:PRIN7 USIHE'KE 
YS¡8"jKE:RE7URN 2351 
3778 FOR 1=2» 70 1» S7EP -1 
378» PLAY-V15L44«=I¡- 
3790 NE17 
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Test de listados ■ 



1161 - «I 1411 -229 

1171 -195 1421 -171 

1MI -131 143» -141 

ii9« - se i44i - ;s 

UM - 5 143» -197 

1111 -191 1461 -111 

1121 -243 147» -141 

1131 -195 148t - 56 

114» - BS 1491 -141 

1151 -136 1SH - 83 

116» -112 151» -247 

117» -2»4 152» -2»4 

UBI -177 153» -14» 

119» -124 154» - 58 

12M -132 155» -138 

121» - 58 154» - 34 

122» -153 137» -2»5 



174» - 58 211» - 33 2441 -112 281» -2»! 



17M - Si 214» - 33 

18M- 37 215» -44 

181» - 73 214» - 45 

182» -14» 217» - 76 

1B3» - 58 218» - 97 



185» - 73 22»» -139 255» - 



2471 -1»8 282» - 
248» -115 
249» -144 
25M - 34 
251» - 58 
252» -143 
253» - 38 
254» - 58 



187» -249 
188» -221 
189» -236 



256» -17» 
237» -149 
258» -1»5 



223» -131 
224» -232 
227» -133 



293» -232 
294» -119 
295» - 73 
294» -249 
297» -223 



1241 - 



6 159» -184 
9 161» -14» 



194» -182 
196» - 58 



2291 -172 
231» -232 



299» -1»B 
3»1» -112 



1281 -1(1 163» -242 

129» - 38 164» -229 

13»» - 29 165» -123 

1311 - 71 1661 -248 



- 38 268» -176 3»3» - 58 3361 
"239 2iM - je 3HI . 144 33 „ 
-2(7 27M-U7 3MI-143 34»» 

- 58 271» - 49 3(4» -19» 341» 



3» -2(4 346» 



3421 - 37 
127 343» -243 
72 364» -172 



38 373»- 
197 574* - 
176 375»- 



SUSCRIBETE 

Suscribiéndote no solo tienes la seguridad de tener todos los meses tu 
MSX CLUB Dli PROGRAMAS en tu casa sino que recibirás 12 
números pagando sólo 10 



BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 



.. Teléfono .. 



Baiiíe, 10-'Í'Í"-' 08023 "Barcelona' 

Tarifas: España por correo normal Ptas. 2.250,—" 
Europa por correo normal Ptas. 2.600,— 
Europa por correo aéreo Ptas. 3.250,— 
América por correo aéreo USAS 35USAS 
Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB. NO SE ADMITE CONTRAREEMBOLSO. | 



Programa ■ 



' Por Pedro ]. Safont 



Minuet 
and Trio 



i********************* 

MINUET AND TRIO * 



PEDRO J. SAFONT 1987» 



100 '» PARA MSX-CLUB * 
* * 
*********************** 

130 SCREEN 3 

140 OPEN"GRP: "AS#1 

30, 10) ,0:PRINT#1, "MINUET 
50,70) ,0;PRINT#1, "AND" 
30, 130) , 0: PRINTttl , "TRIO" 
80 PLAY " t 1 50s0m 1 0000 " , " t 1 50s0m 1 000 
¡", "t 150 s0m 10000" 
90 A*="o41 4go5geco41 2go51 4eg-f do41 2 
go514-f eged-f do4bl8bal4bo5cr" 
200 B*="14o4rerrreedrrrddcrgaraf í-f 

210 C*="14o4rcrrrcco3brrrbgo4crc-f r 
go3ggo4cc " 

220 A*="o414go5geco412go514egf do41 2 
go51 4f eged-f do4b 1 8bal 4bo5cr "" 

~ =" 1 4o4rerrreedrrrddcrgarai 

240 C*="14o4rcrrrcco3brrrbgo4cr( 
go3ggo4cc " 
250 T*="o514ddef #gabo612c.o514brdde 

2co518af *14grdl2dl8f e-14drg 

Í2gl4-f#gro4bo5crc#drd#ere-fr-f#gecl2i 
4gl4o5eg-f dl2o4go51 4f egedf do4bl Bbal 
bo5cr" 

260 U*="14o5rrrco4bag-f #gabo5cdo4f *g 
abo5cd 1 2el 4co4brbo51 2c . o41 4brbl 2o5c 
1 4o4brgara#brbo5crc#drdttero4eeg 
edrddf dergara-f i i er " 

="o414rrrrrrddef #gabo512c.o4: 
4bagco3ao4do3go4grro3í #-f #go4grro3a- 
>-go4grro3grrgrrgrrgro41 8cgegcgcge< 
:go3go4gdgo3bo4go3go4gdgo3bo4gcgegi 
go3f o4-f d-f o3-f o4-f o3go4gdgo3go4gl 4cc " 
T*="o51 4ddef #gabo61 2c . o51 4br dd< 
bo61 2co51 8af #1 4grdl 2dl 8-f e-1 4dr („ 
12gl4f ttgro4bo5crcttdrdttere-fr-f*gecl2Ó 



4gl 4b5egf di 2o4go51 4-f eged-f do4bl Bbal 

290 U*=" 1 4o5rrrco4bag-f #gabo5cdo4f #g| 
abo5cdl 2el 4co4brbo51 2c . o41 4brbl 2o5c 
:gara#brbo5crc#drd#ero4eeg 
edrdd-f dergara-f i f er" 

300 V*="o414rrrrrrddef *gabo512c. o- 
4bagco3ao4do3go4grrci3-f #f #go4grro3a- 
l-go4gr■ro3g^rgrrgrrgro41 Bcgegcgcgeg 
go3go4gdgo3bo4go3go4gdgo3bo4gcgegc 
go3-f o4-f d-f o3f o4-f o3go4gdgo3go4gl 4cc " 
310 G*="05L4CL2C. D. L4FEDCRL8FGAGFED 
Co412b-o518e*g-fedco4b-12al4rrrrrro5 
1 8cde-f gabo6co5bagf edl 2c 1 8edl 4cr " 
i="o41 4al 2a. b- . o51 4dco4b-arr 
g 1 2-f 1 4rrr 1 8bo5cdco4bag-f 1 2e 



I. 18 



ígegl ' 



i gggo4cc" 

340 G*="05L4CL2C. D. L4FEDCRLBFGAGFED 
Co41 2b-o51 8e-f g-f edco4b-l 2al 4rrrrrra5 
• 8cde-fgabo6co5bagf edl 2cl Sedl 4cr " 
350 H*="o414al 2a. b-.o514dco4b-ar rr 

12gl4rrrgl2f 1 4rrrl 8bo5cdco4bagf 1 2e 

d. 1 8egegl 4-f er " 

60 I*="o314ríffíf-f-fff-fo4frrrf#go: 
rro4ef o3-f o418-f gag-f edco31 4bo4dgcrc 
e-frf gggD4cc" 

370 S*="o414gl2g. a-. 1 4o5co4b-a-gr ] 
o5e-fagf edc 1 4o4bro51 8degf edco4bo514c 
-18del4crl8del4cccl2c.c.d.l4fedcrl8 
gagfedcl4o4b-o5dgl2b-14eo612cl4c#d 
o5b-gl 2-f 1 Bagl 4f r 1 B-f gagf edc#l 31 4c 
gao6co5b-ag-f el 4-f r " 

1 Et="o414el2e.-f .14a-gf errrref 

Begeg-f gegeg-f gl 4eeel 2el 4b-l 2a. 
5dco4b-arrrr 1 Bb-o5cdco4b-ag-f 1 4go 
■ ■ 2dl8do4b-12ao518co4b-l 



-12Í . 



r!8i 



i-b-o4ccco3-f o4f ro3-f gab-rr! 
3L4fr" 

400 S*="o414gl2g.a-. 14o5co4b- 
o5e-f ag-fedcI4o4bro51Bdeg-f i 
rlBdel4crlBdel4cccl2c.c.d. 1 4-f 




Programa ■ 



gag-fedcl4o4b-o5dgl2b-14eo612cl4c#d 
o5b-gl2-f lBagl4-frl8-fgagf edc#1314drlB 
gao6co5b-ag-f el 4-f r " 

410 E*="o414el2e.f . 14a-gf errrref f rr 
f 18egegf gegeg-f gl 4eeel 2el 4b-l 2a. b-. 
4o5dco4b-arrrr 1 Bb-o5cdco4b-agf 1 4go 

5ccl2f 14e-12dlBdo4b-12ao518co4b-14a 
rl2í . 14-frregb-ar » 
20 0*="o414rcccccccccccrrrcddrrrdc 
O3"go4cco3go4crl8o3gao4co3b-agf e 
■f-ff f-ff *-fo4f rrrrrr 18e-fe*edco3b-14aa 

ab-b-b-o4ccco3f o4-f ro3-f gab-rrl 2o4c . c 

3L4f r" 

430 PLAYA*, B*, C* 
440 PLAYA*. B*,C* 
450 PLAYT*,U*,V* 
460 PLAYT*,U*,V* 
470 PLAY6*,H», I* 
480 PLAYG*, H*, I* 
490 PLAYS*,E*,0* 
500 PLAYS*,E*,0* 
510 PLAYA*. B*,C* 
520 PLAYT*,U*,V* 
530 FORI=0TO3000 
540 NEXTI 

550 SCREEN0:COLOR 15, 4, 4: CLS: KEYOFF 
560 PRINT: PRINT: PRINT 
570 PRINT"PULSA -E- PARA VOLVERLO A 

ESCUCHAR Y -F- PARA ACABAR" 
580 N*=INKEY* 

I FN*= " E " ORN*= " e " THEN 1 0 
I FN*= " F " ORN*= " f " THEN630 
IFN*=" "ORN*=" "THEN580 
620 GOTO580 
630 END 



Test de listados ■ 



40 - 58 210 - 74 380 
50 - 58 220 - 47 390 
60 - 58 230 -206 400 
70 - 58 240 - 74 410 
80 - 58 250 - 25 420 
90 - 58 260 -234 430 
00 - 58 270 - 26 440 
10 - 58 280 - 25 450 
20 - 58 290 -234 460 
30 -217 300 - 26 470 
40 -224 310 - 26 480 
50-4 320 - 51 490 
60 - 85 330 -172 500 



- 51 520 -132 
-172 530 -131 
-226 540 -204 

- 44 550 - 

- 30 560 - 
-226 570 -220 



44 í 



■ 77 



590 -1É 

- 75 600 -216 

- 75 610 -250 
-132 620 -221 
-132 630 -129 

- 93 

- 93 
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I m THEN 456 ELSE VPQKE 



» ÜN STRI6 EOSUB 1866 
738 BTRIÉdl ON 
748 1=12 
758 0=7 
74Í F=5I 

778 PUTSPRITEB. !L. 01,15.2 

It LEE EL TECLADD+JDYETICK Y S 
E NUEVE 
798 S=STICK(B) 

688 R=INT(RN0(l)l74B!*4t44:IF RON1 T(.. 
EN A=VPEEK(R):IF A)143 AND A<14B THEN 
"■WlIF A=148 THEN N=R:G0SUB 1418 ELS 



1. 32: P 



CE R,A 
Sil IF Kl>8 AND S>l TN 
1=1: N 1=1 

828 IF H<9 THEN STRIEII) 0N 
838 IF S=8 THEN 7?» 
II STRIS(I) OFF 

Sí l~ S=3 THEN L=L*B:IF Y=l THEN «=5: 
Y=l EL:" »=4:Y=1 
>í IF S=7 THEN L=L-B: IF U=l THEN N=4: 
=8 ELSE ",=7:11=1 
878 IF S=l THEN 0=0-8: IF 1=1 THEN 11=3: 
1=3 ELSE IF 1=2 THEN N=fi:!=8 ELSE IF I 
=8 THEN N=2:I=1 ELSE 11=2:1=2 
B88 IF S=5 THEN 0=0*B:IF 1 = 1 THEN *=!: 
1=3 ELSE IF 1=2 THEN H=8:I=8 ELSE IF I 
=1 THEN H=2:I=1 ELSE H=2:I=2 
B9B ' Ittt LIMITES 
981 IF L>234 THEN L=234 

.8 IF O'-l THEN 0-1 
921 IF 0>175 THEN 0=175 
938 IF L<4 THEN t«4 

4ML*l)/BtINT((0*l)/BII32>*3 
3 

951 ' lili PISA PLANTA NO SITUADA 
948 IF VPEEKINIM43 AND VPEEKINKI48 T 
HEN GOSUB 1418 

¡A PLANTA SITUADA 
11=172 THEN PLAY-V13T255L 
44CDAC-:VP0KE «, 32: P0=P0-2: LOCATE 24,8 
íPPINTPO: LOCATE 38,8:PRINT , Z" 
998 IF VPEEK(N)<>32 THEN IF S=l THEN O 
=0*8 ELSE IF S=5 THEN 0=0-8 ELSE IF S= 
3 THEN L=L-8 ELSE IF S=7 THEN L=L»8 

18 IF VPEEKIKI032 THEN 94Í 
1818 PUTSPfilTE 8,IL,0),15,H 
1121 S=8 

1838 IF EI=1 THEN REWN 
1848 GOTO 798 

1851 ■ «II COJE PLANTA Y APARECE HUE 
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1888 IF H=4 OR H=5 THEN H=ie 

IF H=2 THEN H=9 
1181 IF H=8 THEN H=ll 
1111 IF H=3 THEN ««9 
1121 IF H«i OS «=7 THEN 11=9 
1131 IF H»ll THEN »=N»1 ELSE IF H=9 TH 
EN WH 
1148 N1=N 

1151 IF H>8 THEN 1171 
1148 »1=8¡ STRI6 II) ON:RETURN 948 
1171 IF VPEEKINX144 OR VPEEK(N)>147 
HEN 1141 

.181 PUT SPRITE l,(L,0),15,n 
191 PLAY-V13T255L44AB" 
,211 ON STRIS GOSUB 1271 
1218 STRIEII1 OFF 
1221 LE=2 
1238 C0=CO+ 



1248 ' 



10 AZUL 



1258 R1=N:IF VPEEK(B(C0))>143 AND VPEE 
K(B(C0)KI48 THEN VPOKE B(CO) ,219:N=I: 
1SUB 141I:PL=VPEEKINI:RETURN 1818 ELS 
VPOKE !(C0),219:PL=VPEEK(N1:RETURN 1 
818 

DEJA LA PLANTA . . . 
1278 IF N=4 OR H=5 THEN N=18 
1288 LE=1 

1298 IF 11=2 THEN N=U 
1388 IF 11=8 THEN 11=9 
'HEN N=lí 
1328 IF N=4 OR 11=7 THEN (1=9 

■18 THEN N=N»1 ELSE IF 11=9 TH 

'8 THEN 1348 
1358 RETURN 948 

IF VPEEHN)=219 THEN 1511 
1371 IF VPEEKINI032 THEN 1351 
' lili FUERA DEL HUECO 
PUT SPRITE 8, (L, 01,15,14 
PLAY"V13T255L44ED - 



KE N,PL 



I LE=I 
1471 VPOKE B(C0*1),32¡ 
RETURN 941 
' Hit EN EL HUECO 
1511 PUT SPRITE l,(L,0),15,H 
1511 PLAY■V13T255L44BA■ 
1521 VP 



E 11,32 

" ,172 



"™1 



Conviértete en el 
mago que debe destruir ■ 
el hechizo del castillo 
diabólico por sólo 800 
ptas., (las mejor em- 
pleadas de este verano). 

Una apasionante vl- 
deojuego que une a sus 
excelentes gráficos esos 
elementos de acción e 
intriga que hacen impo- 
sible "despegarse" de la 
iltor. 

¡¡Pi 
agote 

(ombre y Apellidos: 



Programa ■ 



ISil LE'I 

1571 PO-PO+2: LOCATE 26,»¡PRINTP0 
E 31 , f: PR IHT- !• : F=F- ! : LOCATE 9,»¡PRINT 

f 

ISSI !F F=» THEK PETURN 1671 

159» RETURN 74» 

1611 MI DESAPARECE PLANTA 

lili PLArV13T235L64ABCA' 

1621 VPOKE N,32;F«F-1 

143» IF F=» THEN RETURN 167» 

164» LOCATE 9,»:PRINT F 

165» RETURN 

1661 ' II* FINAL 

167» E»=l 

16G» S=!:60SUB B(» 

169» FOR IM TO 5» 

17M A=VPEEK(B(IM 

171» IF A<>172 THEN VPOKE B(I),164 

172» NEIT 

173» FOR 1=1 TO 21 
1741 VPOKE 8212, 2B4 
175» FOR T=l TO 5»Í:NEJT 
176» VPOKE 8212, 1BB 
177» FOR T»l TO 5«»!NEIT 
17B» NEIT 
P9» SCREEN » 

IB»» PRINT'Has coipletído un":PO:"7. 
1 juego 

1B1I PRINT:PRINT"Vuelve i intentarlo 







46. 128. 64. 32. 16. 32, 64, 32 

.i.:,4.p.í,í.¡i,í.:'':,:-'t.i4í,:':,;?:,ó 




.124,:, 128, 44, 128 

:e=í h- k. :,:,:.:!.:!. i:. u, n, u. 2,4 

.:m,: : 3.::=.::;.::=,:;3. 128,192 
¡«m wí í.::.!::.:«í.:»M2.3e,:!,47 


8, 128.1»-, 64. 64. 64, 84,234 

i, i, ■>, ¡. », i, i, 






182» END 

183» DATA3,3,3,l,15,ll,ll,ll,ll,ll,2,2 
, 2,2,2,6, 128, 128,128,8,224,161, 1M,1M 
,16», 16», 128, 128, 128, 128, 128, 192 
1B4Í DATA3,3,3,l,15,ll,ll,U,ll,ll,2,2 
,2,2,2,6, 128, 128, 128,1,224, 161, 16», 161 
. 16», 16», 128, 128, 128 128 128 192 
185» DATÁ»,»!»,»]31,Í6,17,17!3,3,2,62, 
64,1,2,1,112,112,112,64,224,224,192,19 
2, 16Í.16Í. 128.128, 128. ».«.» 
186» DA!A».Í.»,«,Í,3,|3.49.3.3,2,2,4,4 
,B, 12.112, 112.112. 64, 224,22», 192. 192,2 




192» SA*s ¡:, 41, :I T . 22". 15?, 59,55.181 

:m datp 5t,::».2í«,!;r.:4:,:8e.:»4.2 

195» DATA 1(9,77, ¡3,5,1, 1,1,1 

1»6» 5A T fi 1B:,:77,184,1B4,144,¡28,128, 

198» DATA ¡28, 128, 128, 128, 128, 118, 128, 
128 

199» DATA 5,51,77,46,69,28,2,» 
281» DATA 172,21»,224,9»,12,2Í»,32,Í 



Test de listados 




948 -138 U3.-145 132» - B9 



» - 58 179» -214 ! 

I -ÜB IB»» -247 ; 

143» -251 1621 - 17 181» - 27 1 

144» -153 163Í -211 182» -129 

145» - 23 1648 - 64 183» - 81 

146» -145 165» -142 184» - 81 

148» - 75 1678 -158 186» -2 

149» - 5B ¡6B» - 44 187» - 

15»» -146 16»» -23» 1881-1 

151» -232 ! 7 »» -244 1B9» -1 



Software ■ 



■ por Sascha Ylla-Kónneke M 



NEMESIS 2: 
La aventura 
continúa... 



Lo han conseguido! ¡KONA- 




De todos es conocido el juego NEME- 
SIS toimixulizado en un cartucho de 
1 Megabit, que KONAMI ha aprove- 



sólo se había conseguido en las 
máquinas de los salones recreativos. 
Aparte de la considerable mejora a la 
' :a que esto supone, KONAMI no 



la opción de 1 ó 2 jugadores 



fieos. Estos efectos gráficos sobresa- 
ítemente conseguidos aprovechan ró- 
llente la capacidad del MSX-1. 



LA HISTORIA 

Dr. Venom, el ca 



^ En el año cósmico 6665 el Dr. 1 

y se escapa del planeta Sard. 
El emperador mandó furiosí 

que toda la Armada Imperial se 
a ello, Dr. Venom no fue 

Nuestro queridísimo ai...„_ . 
dirle ayuda a los BACTERION, 



fue J 
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pantalla. El MSX 2 dispone de o 



pero el interface (VIDEOTIZER) nos per- 



didos de imagen tanto en cobres claros 
como en oscuros. También es posible con- 
trolar el contraste, el brillo y el color de la 




alteración que hagamos : 
que la digitalización se adecúe 
elegidos. Dé esta forma cond 

digitalizadas. Podemos convertir imágenes 



REGALATE Y DISFRUTA DE M ] 



UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 




Y ADEMAS PROGRAMAS 



Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scra- 
ple from the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 



Tabla de colores SCREEN 1. Rec- 
tángulos en 3-D. Juego de caracte- 
* : — en todos los modos. 
Más grande más 
Apoca- 



Deseo me envíen el libro Los secretos del MSX, para lo cual adjunto talón de 1.500 ptas. a la orden de 
MANHATTAN TRANSFER, S.A. Importante: No se hace contra reembolsos 

Nombre y apellidos 

Calle n° Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envío o 
cualquier otro cargo 

importante: indicar en el sobre MANHATTAN TRANSFER. S.A 
«LOS SECRETOS DEL MSX» 
Roca l Batlle. 10-12 BajOS-08023 BARCELONA 



Video-Pokes ■ 



■ por Miguel Angel Vila ■ 



BRICK BREAKER 

Este juego es de la casa DROOFT, 
ARKANOID, en el qw 



CARGADOR: 

10 CARGADOR-BRICK BREAKER 
20 POR MIGUEL A. VILA LUGO 
30 PARA MSX-CLUB 

50 COLOR 15,1,1 :CLS:KEY 

OFF:POKE&HFCAB,l 

60 FOR I=&HF500 TO &HF50E 

7 0 R E A D 

A$:C=F/ÍÍ.Í»6H» + AS):P0KE 

I,C:B=B=C:NEXT 

80 IF BO&H4FD THEÑ 

CLS:BEEP:PRINT«ERROR EN DA- 
TAS»:END 

90 LOCATE 0,10:INPUT«CUANTAS 

VIDAS QUIERES (1-255)»;C 

100 POKE &HF501.C 

110 CLS:La:ATI I.!ll INI»l T..oril-KI-.s 

QUE TU BOLA NO SE CUELE EN LA 

PARTE INFERIOR»-,C$ 

120 IF CS=«N» THEN POKE 

&HF506.0 

130 CLS:LOCATE 
\ 1 o l'K[NT«CARGANDO ... BREA- 
KER» 

140 BLOAD«CAS:» 

15 0 S C R E E N 

2ÍDEFUSR=&HA489:A=USR<0) 

160 BLOAD«CAS:» 

170 DEFUSR=&HF500:A=USR(0) 

180 DATA 3E,3.i2.i9.<>( .3L.ln.i2.UF.. 

9F,C3,41,C4,0,0 



BMX Símulator 

Este juego está distribuido en Espa- 
ña por la muy conocida marca 
SERMA. Es un simulador de bici- 



ven cantidad de obs- 



teclea el siguiente cargador pon la cinta 
original y a jugar. 

CARGADOR: 

10 CARGADOR - BMX Simulator 

20 PARA TIEMPO INFINITO 

30 POR MIGUEL A. VILA LUGO 

40 PARA MSX-CLUB 

50 CLEAR200,&H87FF:COLORI, 10,10 

SCREEN 2 • 

f,ll (>P1N«GPR:»AS#1'.D=&HA2E3 
70 PSET(10,10),0:PRuNT#l,«CARGADOR - 

BMX Simulator (MSX)» 

80 PSET(11,10),0:PRINT#1,«CARGADOR- 

HMX Simulator (MSX)» 



PSET(44,30),0:PR1NT#1,«POR 
MIGUEL A. VILA» 

10 PSET(28,49),0:PRINTffl,«PARA 
MSX-CLUB» 

20 PSET(29,49),0:PRINT#1,«PARA 
MSX-CLUB» ' 

II) BI.OA1M.AV. Di:l'USR=&H9000: 

40 BLOAD«CAS , 1)1 R'sR Ml-moi) 

50 BLOADxCAS:» 

160 POKE D,0:POKE D+1,0:POKE 
D+2,0 

170 DEFUSR=&H9960:A=USR(0) 
80 DEFUSR=&HF000:A=USR(0) 
190 STOP 

200 DEFUSR=&H9000:A=USR(0) 




llamada ANTARES. P 



10 CARGADOR - ANTARES (MSX) 
20 POR MIGUEL A. VILA LUGO 
30 PARA MSX-CLUB 

40 ■*♦* .......*....»».. 

50 CLS:KEY OITIOIOR 

15,l,l:POKE &HFCAB.1 

60 TI=&HAE7C:PW=&HBEFD:LA= 

&HBF47 

70 LOCATE 6,5:PRINT«POR MI- 
GUEL A. VILA» 

80 LOCATE 4,6:PRINT«PARA MSX- 
CLUB» 

90 LOCATE 5,3:PRINT«CARGADOR 
DE ANTARES» 

100 LOCATE 1,10:INPUT«QU1ER 
POWER INFINITO (S/N)»;PW$ 

.OCATE 1,13:INPUT«QUIERES 



IMTO s 
MTO > 



)»;LS$ 
NPUT«QUIERES 



REEN 



2:DEFUSR=35000!:A=USR(0) 
140 BLOAD«ANTA2»,R 
150 BLOAD«ANTA3» 
160 IF PW=«S» THEN POWE 
PW,0:POKE PW+l,0:POKEPW+2. 
170 IF LS$=«S» THEN PÓ 
LA,0:POKE LA+1,0:POKELA+2,0 
180 IF TM*=«S» THEN . POKE 
TI,0:POKE TI+1,0:POKETI+2,0 
190 DEFUSR=&H9C40:A=USR(0) 



DISFRUTA ESTAS FIESTAS TUGANDO 
CON NUESTRO SUPER PACK ESPECIAL 1 



CUATRO DE NUESTROS JUEGOS ESTRELLAS 
AUN PRECIO DE RISA. 
POR SOLO 2.500 PTAS. 



RECIBE EN TU CASA NUESTRA IRREPETIBLE OFERTA 
(válida, sólo para pedidos recibidos antes del 15 de enero de 1988) 




ANTES DE QUE SE AGOTE 

Si quieres recibir por correo certificado este magnífico PACK garantizado (en oferta limitada) recorta o copia 
este boletín y envíalo hoy mismo: 

Nombre y apellidos 

Dirección 

Población CP: Prov. TeL 

Ruego me envíen el PACK especial Navidad al precio de 2.500 ptas. (su precio real es de 3.600 ptas. ver Club de cassettes) 
mas gastos de envío 140 ptas. 

Remito talón bancario de 2.640 ptas. a la orden de Manhattan Transfer S. A. A la dirección indicada abajo. 

IMPORTANTE: Indicar en el sobre MSX-CLUB DE CASSETTES. OFERTA PACK NAVIDAD. ROCA I BATLLE, 
10-12, BAJOS. 08023 BARCELONA. 

Para evitar demoras en la entrega es imprescindible indicar nuestro código postal. 

NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SO- 
LICITANDOLAS A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



TU MISMO 

Tu creación. Tu locura por la imagen. Por el diseño. Por la 
animación. Tu afición a la fotografía. Al vídeo. Tú mismo. Y tu 
ordenador NMS 8280. De Philips. 

Con mil aplicaciones gráficas. Juegos. Y mil usos en el hogar. 
Con mil ideas. Como tú. 





PHILIPS 




ATE 



SONY TIENE CANTIDAD DE PROGRAMAS 

Increíbles juegos de acción, destreza, inteligencia. 
Divertidos programas de dibujo y diseño. 
SONY lo tiene todo para que demuestres tus habilidades de 
campeón con el MSX. 

¿POR CUAL QUIERES EMPEZAR? 

Consigue más información y 
aprovéchate de las ofertas y 
regalos del Club SONY MSX 
, enviándonos tu nombre, 
dirección y ocupación, junto 
l a una fotocopia de la ga- 
i rantía de tu ordenador MSX a: 



[ITl 



Club SONY MSX Apartado de Correos 61.278 28080 MADRID 



